home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aab.d64 / pop.dir < prev    next >
File List  |  2007-02-28  |  3KB  |  106 lines
  1. 0170 ╨╥╧├ POPOVER ├╠╧╙┼─
  2. 0180   //COPYRIGHT 1986 LEN LINDSAY
  3. 0190   // ORIGINAL BY LEN LINDSAY
  4. 0200   // REVISION BY
  5. 0210   ╔╬╘┼╥╥╒╨╘ //INTERRUPT OFF WHILE DOING INTERRUPT NOW
  6. 0220   ╒╙┼ GRAPHICS
  7. 0230   TEXTMODE:=INQ(13)
  8. 0240   GRAPHMODE:=INQ(7) //2=MULTI
  9. 0250   ╔╞ GRAPHMODE<2 ╘╚┼╬ GRAPHMODE:=1-INQ(14) //0=SPLIT//1=FULL HIRES
  10. 0260   ╘╥┴╨ ┼╙├-
  11. 0270   SETUP
  12. 0280   ╒╙┼ SYSTEM
  13. 0290   ─╔═ START'SCREEN$ ╧╞ 1505
  14. 0300   GETSCREEN(START'SCREEN$)
  15. 0310   ╔╞ ╬╧╘ TEXTMODE ╘╚┼╬ TEXTSCREEN
  16. 0320   CLEAR'KEYS
  17. 0330   POPUP
  18. 0340   SETSCREEN(START'SCREEN$)
  19. 0350   ╔╞ TEXTMODE ╘╚┼╬
  20. 0360     TEXTSCREEN
  21. 0370   ┼╠╙┼ 
  22. 0380     ╔╞ GRAPHMODE ╘╚┼╬
  23. 0390       FULLSCREEN
  24. 0400     ┼╠╙┼ 
  25. 0410       SPLITSCREEN
  26. 0420     ┼╬─╔╞ 
  27. 0430   ┼╬─╔╞ 
  28. 0440   CLEAR'KEYS // OPTIONAL LINE
  29. 0450   ╔╬╘┼╥╥╒╨╘ POPOVER
  30. 0460   //
  31. 0470   ╨╥╧├ POPUP 
  32. 0480     COL:=╥╬─(3,15) // <<<===START COL
  33. 0490     CURRENT'ROW:=╥╬─(2,12) // <<<=== START ROW
  34. 0500     // ROW IS A FUNCTION THAT STARTS AT CURRENT'ROW
  35. 0510     // USE SHIFT * TO DRAW MENU LINE
  36. 0520     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"░└└└└└└└└└└└└└└└«"
  37. 0530     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"  POPOVER MENU   "
  38. 0540     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  39. 0550     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" D = DIR         "
  40. 0560     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" P = PRG FILES   "
  41. 0570     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" S = SEQ FILES   "
  42. 0580     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  43. 0590     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" Q = QUIT        "
  44. 0600     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"½└└└└└└└└└└└└└└└│"
  45. 0610     ╨╥╔╬╘ ┴╘ ROW,COL: ""18" OR <RETURN> KEY "
  46. 0620     ╨╥╔╬╘ ┴╘ ROW,COL: ""18"¡└└└└└└└└└└└└└└└╜"
  47. 0630     ╥┼╨┼┴╘ 
  48. 0640       DONE'POPPING:=╘╥╒┼
  49. 0650       ├┴╙┼ ╦┼┘$ ╧╞
  50. 0660       ╫╚┼╬ "D","─"
  51. 0670         ╨┴╟┼
  52. 0680         ╨╥╔╬╘ "DIRECTORY DRIVE 0 - ALL FILES"
  53. 0690         ─╔╥
  54. 0700         READY
  55. 0710       ╫╚┼╬ "P","╨"
  56. 0720         ╨┴╟┼
  57. 0730         ╨╥╔╬╘ "DIRECTORY DRIVE 0 - PRG TYPE FILES"
  58. 0740         ─╔╥ "*=PRG"
  59. 0750         READY
  60. 0760       ╫╚┼╬ "S","╙"
  61. 0770         ╨┴╟┼
  62. 0780         ╨╥╔╬╘ "DIRECTORY DRIVE 0 - SEQ TYPE FILES"
  63. 0790         ─╔╥ "*=SEQ"
  64. 0800         READY
  65. 0810       ╫╚┼╬ "Q","╤"
  66. 0820         ╘╥┴╨ ┼╙├+
  67. 0830         ┼╬─ ""147"╘HANK ┘OU."
  68. 0840       ╫╚┼╬ ""13"" //CARRIAGE RETURN
  69. 0850         ╥┼╘╒╥╬
  70. 0860       ╧╘╚┼╥╫╔╙┼ 
  71. 0870         DONE'POPPING:=╞┴╠╙┼
  72. 0880       ┼╬─├┴╙┼ 
  73. 0890     ╒╬╘╔╠ DONE'POPPING
  74. 0900   ┼╬─╨╥╧├ POPUP
  75. 0910   //
  76. 0920   ╨╥╧├ READY 
  77. 0930     ╔╬╨╒╘ ┴╘ 25,1,0: ""18"╨RESS ╥┼╘╒╥╬ WHEN READY": POPREADY$
  78. 0940     ╨┴╟┼
  79. 0950   ┼╬─╨╥╧├ READY
  80. 0960   //
  81. 0970   ╞╒╬├ ROW 
  82. 0980     CURRENT'ROW:+1
  83. 0990     ╥┼╘╒╥╬ CURRENT'ROW
  84. 1000   ┼╬─╞╒╬├ ROW
  85. 1010   //
  86. 1020   ╨╥╧├ CLEAR'KEYS 
  87. 1030     ╫╚╔╠┼ ╦┼┘$>"" ─╧ ╬╒╠╠
  88. 1040     DUMMYESC:=┼╙├ //CLEAR STOP KEY
  89. 1050   ┼╬─╨╥╧├ CLEAR'KEYS
  90. 1060   //
  91. 1070   ╨╥╧├ SETUP ├╠╧╙┼─
  92. 1080     // SETUP BY JESSE KNIGHT
  93. 1090     ╘╥┴╨ ┼╙├-
  94. 1100     ╞╧╥ X#:=0 ╘╧ 12 ─╧
  95. 1110       ╥┼┴─ BYTE#
  96. 1120       ╨╧╦┼ $C86A+X#,BYTE#
  97. 1130     ┼╬─╞╧╥ X#
  98. 1140     ╨╧╦┼ $C7E2,$6A
  99. 1150     ╨╧╦┼ $C7E3,$C8
  100. 1160     ╨╧╦┼ $4D,╨┼┼╦($4D) ┬╔╘╧╥ $20
  101. 1170     ─┴╘┴ $A5,$4D,$29,$08,$F0,$06,$A9
  102. 1180     ─┴╘┴ $04,$05,$4D,$85,$4D,$60
  103. 1190   ┼╬─╨╥╧├ SETUP
  104. 1200   //
  105. 1210 ┼╬─╨╥╧├ POPOVER
  106.